Public Class ctrValue1
    Public Event ValueChanged(ByVal sender As ctrValue1)
    Public UserDidIt As Boolean = False
    Public Unicode As Boolean = False
    Private Sub txtValue_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtValue.TextChanged
        If UserDidIt Then RaiseEvent ValueChanged(Me)
    End Sub
End Class
